00010	BEGIN "ADDNAM"
00020	DEFINE ⊂="COMMENT";  ⊂ AUG.3,1973;
00030	REQUIRE "BLOCKS.HDR" SOURCE_FILE;
00040	INTEGER I,J,CHAN1;
00050	STRING READ1;
00060	
00070	PROCEDURE HEDOUT;
00080	BEGIN "HEDOUT"
00090	INTEGER CHAN1,EOF;
00100	CHAN1←GETCHAN;
00110	 CLOSE(CHAN1);
00120	  OPEN(CHAN1,"DSK",'10,0,10,0,0,0);
00130	  ENTER(CHAN1,"TABHED.DAT",0);
00140	ARRYOUT(CHAN1,INNAM[0],INSIZ);
00150	ARRYOUT(CHAN1,FLIST[0],36);
00160	ARRYOUT(CHAN1,PHLIST[0],64);
00170	ARRYOUT(CHAN1,HLIST[0],64);
00180	ARRYOUT(CHAN1,NAMES[0],TABNUM);
00190	ARRYOUT(CHAN1,PARENT[0],TABNUM);
00200	ARRYOUT(CHAN1,PARENN[0],TABNUM);
00210	ARRYOUT(CHAN1,GATE[0],TABNUM);
00220	ARRYOUT(CHAN1,IN1[0],TABNUM);
00230	ARRYOUT(CHAN1,IN2[0],TABNUM);
00240	ARRYOUT(CHAN1,IN3[0],TABNUM);
00250	ARRYOUT(CHAN1,IN4[0],TABNUM);
00260	ARRYOUT(CHAN1,OUT1[0],TABNUM);
00270	ARRYOUT(CHAN1,OUT2[0],TABNUM);
00280	ARRYOUT(CHAN1,OUT3[0],TABNUM);
00290	ARRYOUT(CHAN1,OUT4[0],TABNUM);
00300	ARRYOUT(CHAN1,LRN1[0],TABNUM);
00310	ARRYOUT(CHAN1,LRN2[0],TABNUM);
00320	ARRYOUT(CHAN1,LRN3[0],TABNUM);
00330	ARRYOUT(CHAN1,LRN4[0],TABNUM);
00340	ARRYOUT(CHAN1,LEVEL[0],TABNUM);
00350	
00360	CLOSE(CHAN1);
00370	RELEASE(CHAN1);
00380	END "HEDOUT";
00390	
00400	OUTSTR("This procedure allows one to introduce new names into INNAM."&CRLF);
00410	HEADIN;
00420	WHILE TRUE DO BEGIN
00430	OUTSTR(LF&"Type name to be added (CR to terminate).");
00440	IF (READ1←INCHWL)="" THEN DONE;
00450	J←CVSIX(READ1);
00460	FOR I←0 STEP 1 UNTIL 23 DO BEGIN
00470	  IF J←INNAM[I] THEN BEGIN OUTSTR("Name already used."&CRLF); DONE; END;
00480	  IF INNAM[I]=0 THEN BEGIN
00490	  INNAM[I]←J; DONE; END;
00500	  END;
00510	IF I=24 THEN BEGIN OUTSTR("No space available."&CRLF); DONE END;
00520	END;
00530	HEDOUT;
00540	
00550	END "ADDNAM";